home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Sample Code / Snippets / Toolbox / readLocation / readLocation.p < prev    next >
Encoding:
Text File  |  1992-07-15  |  1.6 KB  |  64 lines  |  [TEXT/MPS ]
  1. { 
  2.   readLocation
  3.  
  4.   retrieves the map settings for longitude and latitude and
  5.   the time offset from GMT
  6.   
  7.   for more information, see Worldwide Development: Guide to System Software
  8.   
  9.   Greg Robbins 12/91
  10.  
  11. }
  12.  
  13. { requires SIOW for WriteLn }
  14.  
  15. PROGRAM location;
  16.  
  17. USES Types, Script, FixMath;
  18.  
  19. VAR
  20.     myMachineLocation: MachineLocation;
  21.     latExt, longExt: EXTENDED;
  22.     latDeg, latMin, longDeg, longMin: LONGINT;
  23.     theGmtDelta, hours, minutes, seconds: LONGINT;
  24.     
  25.     FUNCTION GetGmtDelta(myLocation: MachineLocation): LONGINT;
  26.     VAR
  27.         internalGmtDelta: LONGINT;
  28.     BEGIN
  29.         { change 3-byte integer to LONGINT }
  30.         internalGmtDelta := BAND(myLocation.gmtDelta,$00FFFFFF);
  31.         IF BTST(internalGmtDelta,23) THEN { sign extend }
  32.             internalGmtDelta := BOR(internalGmtDelta,$FF000000);
  33.         GetGmtDelta := internalGmtDelta;
  34.     END;
  35.  
  36. BEGIN
  37.     ReadLocation(myMachineLocation);
  38.     
  39.     { convert location to extended fraction }
  40.     latExt := Frac2X(myMachineLocation.latitude);
  41.     longExt := Frac2X(myMachineLocation.longitude);
  42.     
  43.     { convert location to degrees-minutes }
  44.     latDeg := TRUNC(latExt * 90);
  45.     latMin := TRUNC((latExt * 90 - latDeg) * 60);
  46.  
  47.     longDeg := TRUNC(longExt * 90);
  48.     longMin := TRUNC((longExt * 90 - longDeg) * 60);
  49.     
  50.     { find time zone w.r.t. GMT }
  51.     theGmtDelta := GetGmtDelta(myMachineLocation);
  52.     hours := theGmtDelta DIV 3600;
  53.     minutes := (theGmtDelta MOD 3600) DIV 60;
  54.     seconds := theGmtDelta MOD 60;
  55.     
  56.     { negative values indicate South or West }
  57.     WriteLn('latitude:  ', latDeg, CHR($A1), latMin, CHR($27));
  58.     WriteLn('longitude: ', longDeg, CHR($A1), longMin, CHR($27));
  59.     
  60.     { negative values indicate West }
  61.     WriteLn('time from GMT: ', hours:3, ' h ', minutes:3, ' m ', 
  62.         seconds:2, ' s');
  63. END.
  64.